home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / ada / non_pc.ada < prev    next >
Text File  |  1988-03-25  |  1KB  |  40 lines
  1. -- NON-PC.ADA   Ver. 1.00   25-MAR-1988
  2. -- Copyright 1988 John J. Herro
  3. -- Software Innovations Technology
  4. -- 1083 Mandarin Drive NE, Palm Bay, FL 32905-4706   (407)951-0233
  5. --
  6. -- When compiling ADA-TUTR.ADA on any computer other than a PC running Artek
  7. -- Ada (tm, Artek Corp.), compile this first.
  8. --
  9. with TEXT_IO;
  10. procedure QGET(C : out CHARACTER) is
  11. begin
  12.    TEXT_IO.GET(C);
  13. end QGET;
  14.  
  15. with TEXT_IO;
  16. package CON_IO is
  17.    procedure GET     (ITEM : in out STRING);
  18.    procedure PUT     (ITEM : in CHARACTER) renames TEXT_IO.PUT;
  19.    procedure PUT     (ITEM : in STRING) renames TEXT_IO.PUT;
  20.    procedure PUT_LINE(ITEM : in STRING) renames TEXT_IO.PUT_LINE;
  21.    procedure NEW_LINE(SPACING: in TEXT_IO.COUNT := 1) renames TEXT_IO.NEW_LINE;
  22.    procedure CLS;  -- Clears the screen.
  23. end CON_IO;
  24.  
  25. package body CON_IO is
  26.  
  27.    procedure GET(ITEM : in out STRING) is
  28.       LAST : INTEGER;
  29.    begin
  30.       TEXT_IO.GET_LINE(ITEM, LAST);
  31.    end GET;
  32.  
  33.    procedure CLS is
  34.    begin
  35.       TEXT_IO.PUT(ASCII.ESC & "[H" & ASCII.ESC & "[2J");
  36.    end CLS;
  37.  
  38. end CON_IO;
  39.  
  40.